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-- file Pass3.Mesa 

-- last modified by Satterthwaite, May 18, lP7ti i0:23 AM 

DIRECTORY 

ComData: FROM "comdata" 
USING [ 

bodyRoot, importCtx, moduleCtx, monitored, outerCtx, stopping, 
textlndex, xref], 
CompilerDefs: FROM "compilerdef s" USING [MakeSwappable] , 
CopierDefs: FROM "copierdefs" 
USING [ 

Copierlnit, CopierReset, FileProblem, FileVersionMix, TableRelocated] , 
ErrorDefs: FROM "errordefs" USING [errorhti], 
PSDefs: FROM "pSdefs" 
USING [ 

PassSD, PassSI, PassSS, PassSXa. PassSXb, 
DeclNotify, IdNotify, StmtNotify, ExpANotify, ExpBNotify, 
Exploit, Idlnit, IdFinish, 

BodyList, CheckDirectorylds , CloseBase, Declltem, 
Directoryltem, DirectoryScan, Exportld, Importltem, 
OpenBase, PopCtx, PushCtx, Sharing], 
SymDefs: FROM "symdefs" USING [CSEIndex, recordCSEIndex, HTNull], 
TableDefs: FROM "tabledefs" 

USING [TableBase, TableNotif ier, AddNotify, DropNotify], 
TreeDefs: FROM "treedefs" 
USING [treetype, 

TreeLink, Treelndex, TreeMap, TreeScan, nullTreelndex, 
GetNode, reversescani ist, scanlist, updatelist]; 

PassS: PROGRAM 
IMPORTS 

CompilerDefs, CopierDefs, ErrorDefs, PSDefs, TableDefs, TreeDefs. 
dataPtr: ComData 
EXPORTS CompilerDefs =» 
PUBLIC 
BEGIN 
OPEN TreeDefs; 

tb: PRIVATE TableDefs .TableBase; -- tree base (local copy) 

PassSNotify: PRIVATE TableDefs. TableNotifier » 

BEGIN -- called by allocator whenever table area is repacked 
' tb ^ base[treetype] ; 

PSDefs. DeclNotify [base]: PSDef s . IdNotify[base]; P3Defs.StmtNotify[base] ; 

PSDefs. ExpANotify[base]; PSDef s . ExpBNotify[base] ; RETURN 

END; 

impl icitType: SymDefs .CSEIndex; -- assumed type of empty 

impl ici tTree: TreeLink; -- its tree 

impl icitRecord: SymDefs . recordCSEIndex;-- type of extraction record 

lockNode: Treelndex; -- lambda expr for monitor lock 
lockHeld: BOOLEAN; -- within entry or internal procedure 

-- overall control 

PSUnit: PROCEDURE [unit: TreeLink] RETURNS [TreeLink] « 
BEGIN 

node: Treelndex; 
nIdLists: CARDINAL; 
TableDefs.AddNotify[Pass3Notify]; 
node ^ GetNode[unit]; 
BEGIN 
ENABLE 
BEGIN 
CopierDefs. FileProblem «> 

BEGIN ErrorDefs. errorhti[fileName, hti]; RESUME [TRUE] END; 
CopierDefs . FileVersionMix «»> 

BEGIN ErrorDefs. errorhti[fileVersion, hti]; RESUME END; 
CopierDefs. TableRelocated «> RESUME; 
END; 
CopierDef s. Copier In it[]; 

nIdLists *- PSDef s .DirectoryScan[( tb+node) . sonl]; 
PSDefs. Id In it[nIdLists]; PSDef s .Exp In it[] ; 
scan! ist[(tb+node) .sonl, PSDef s .Directoryltem]; 


